Gyakorló feladat keresésre:
Tömb feltöltése n darab véletlen számmal és meghatározott szám keresése a tömbben
program Kereses;
uses crt;
var i,n,x,j:integer;
a:array [1..100] of integer;
BEGIN
clrscr;
i:=1;
n:=
5
10
20
;
writeln('A tomb elemei:');
while (i<=n) do begin
a[i]:=trunc(90*random+1);
i:=i+1;
writeln('A tomb ',i,'. eleme:',a[i]);
end;
i:=
;
t:=
;
keresett:=
;
writeln('Keresett szam:',keresett);
while (i<=n) do begin
if (a[i]=keresett)the begin
t:=t+1;
writeln('A tomb ',i,'. eleme es a keresett szam megegyezik');
end;
i:=i+
;
end;
writeln('A talalatok szama: ',t);
END.
